home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_15_1987_Transactor_Publishing.d64 / fast file.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  727b  |  19 lines
  1. 10 rem** fast file **
  2. 20 rem read from a file into a variable
  3. 30 a=49152: rem  program is relocatable
  4. 40 print"usage: sys";a;",#<file#>,<# bytes>,<string var$>"
  5. 50 for i=a to a+85: read d: c=c+d: poke i,d: next i
  6. 60 if c<>11584 then print"!data error!": stop
  7. 70 :
  8. 100 data  32, 253, 174, 169,  35,  32, 255, 174
  9. 110 data  32, 158, 183, 134, 251,  32, 253, 174
  10. 120 data  32, 158, 183, 134, 252,  32, 253, 174
  11. 130 data  32, 139, 176, 133,  73, 132,  74,  36
  12. 140 data  13,  48,   3,  76, 153, 173, 165, 252
  13. 150 data  32, 125, 180, 166, 251,  32, 198, 255
  14. 160 data 176,  15, 165, 252, 240,  26, 160,   0
  15. 170 data 165, 144, 208,   8,  32,  19, 238, 144
  16. 180 data   8,  76, 249, 224, 132,  97, 184,  80
  17. 190 data   7, 145,  53, 200, 196, 252, 144, 232
  18. 200 data  32, 204, 255,  76, 100, 170
  19.